home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
phones_1
/
sship1.bas
< prev
next >
Wrap
BASIC Source File
|
1995-04-19
|
1KB
|
61 lines
'Global Variable for the game
'Position variables for player
Global Xcord As Integer
Global Ycord As Integer
'Enemy Record type
Type ERecord
EnemyNum As Integer
EXcord As Integer
EYcord As Integer
Visible As Integer
End Type
'Number of enemies
Global Enemys(3) As ERecord
'Score Structure
Type Score
Name As String
NumEnemyDead As Integer
End Type
'Number fo High Scores
Global HighScores(5) As Score
'Total Enemy counter
Global TotalEnemys As Integer
'Enemy Laser Record
Type ELRecord
EnemyNum As Integer
LEXcord As Integer
LEYcord As Integer
Visible As Integer
End Type
'Number of Enemy Lasers
Global EnemyLasers(3) As ELRecord
'Number of enemies hit counter
Global EnemyHitNum As Integer
'Generic Counter
Global Counter As Integer
'Global values for speed of the game and game delay
Global Speed As Integer
Global TimerDelay As Integer
Global Delay As Integer
'Globals for number of dead enemies
Global NumDeadEnemy As Integer
Global NumLives As Integer
Global StartYcord, StartXcord As Integer
Global Const ASCENDING_ORDER = 1
Global Const DESCENDING_ORDER = 2